program D4Http;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  uD4GoHttp in 'Unit\uD4GoHttp.pas';

var
  GoHttp: TD4GoHttp;
  zhStr:string;
begin
  try
    GoHttp := TD4GoHttp.Create;
    zhStr:=GoHttp.GPost('http://www.baidu.com','');
    GoHttp.Free;
    Writeln(zhStr);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.



